home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2_n.plp < prev    next >
Text File  |  1993-11-30  |  5KB  |  196 lines
  1. /**********   半自動通信を行う  v1.04a用   **********/
  2. %ForumPRC{[fname,ccsset]
  3.     %ForumDir    logd|{\}|fname;
  4.     case(Where1<>{FORUM} || Where2<>fname,{Yes},{GoForum(fname)});
  5.     test(,{type({T\n})},{\nFORUM>},);
  6.     test(,,{\nFORUM>},{
  7.         loop({
  8.             select({ 処理を指定してください},9999,{im({No})},
  9.             {    掲 示 板    },{BUL; im({Yes})},
  10.             {    会 議 室    },{CCS(ccsset); im({Yes})},
  11.             {    手動通信    },{
  12.                 %prompt @tail(@laststr,{\n});
  13.                 type({SEND ON\n});
  14.                 wait(30,{TimeOut},{\n}|prompt);
  15.                 MANUAL;
  16.                 %prompt @tail(@laststr,{\n});
  17.                 type({SEND OFF\n});
  18.                 wait(30,{TimeOut},{\n}|prompt);
  19.                 im({Yes})},
  20.             { フォーラム選択 },{im({No})},
  21.             {    前に戻る    },{im({No})}
  22.             );
  23.         });
  24.     });
  25. };
  26.  
  27. %BForum{
  28.     var f2[500];
  29.     var b2[1100];
  30.     f2:=forum;
  31.     b2:={loop(}|@xc({7b})|
  32.         {select({ 処理するフォーラムを選択してください},999,{im({No})}};
  33.     loop({
  34.         %fnset    @head(f2,{/});
  35.         %fname    @head(fnset,{(});
  36.         %ccsset    @body(fnset,{(},{)});
  37.         case(b2<>{},{Yes},{b2:=b2|{,}});
  38.         b2:=b2    |@xc({7b})|{ }|fname|{ }|@xc({7d})|{,}
  39.             |@xc({7b})|{ ForumPRC(}
  40.             |@xc({7b})|fname|@xc({7d})|{,}
  41.             |@xc({7b})|ccsset|@xc({7d})|{); im({Yes}); }
  42.             |@xc({7d});
  43.         f2:=@body(f2,{/});
  44.         im(f2<>{});
  45.     });
  46.     b2:=b2    |{,{ 前に戻る },{im({No})} ); footnote({}); }
  47.         |@xc({7d})|{);};
  48.     case(forum={},
  49.     {Yes}, {im({});
  50.     },{No},{im(b2);
  51.     });
  52. };
  53.  
  54. %BHP{
  55.     var hp2[500];
  56.     var b2[1100];
  57.     hp2:=hp;
  58.     b2:={loop(}|@xc({7b})|
  59.         {select({ 処理するＨＰを選択してください},999,{im({No})}};
  60.     loop({
  61.         %hpset    @head(hp2,{,});
  62.         %hpid    @head(hpset,{/});
  63.         %pass    @body(hpset,{/},{/});
  64.         %name    @tail(hpset,{/});
  65.         %fname    logd|{\HP\}|name;
  66.         case(b2<>{},{Yes},{b2:=b2|{,}});
  67.         b2:=b2    |@xc({7b})|{ }|name|{ }|@xc({7d})|{,}
  68.             |@xc({7b})|{ oneHP(}
  69.             |@xc({7b})|hpid|@xc({7d})|{,}
  70.             |@xc({7b})|pass|@xc({7d})|{,}
  71.             |@xc({7b})|fname|@xc({7d})|{); im({Yes}); }
  72.             |@xc({7d});
  73.         hp2:=@body(hp2,{,});
  74.         im(hp2<>{});
  75.     });
  76.     b2:=b2    |{,{ 前に戻る },{im({No})} ); footnote({}); }
  77.         |@xc({7d})|{);};
  78.     case(hp={},
  79.     {Yes}, {im({});
  80.     },{No},{im(b2);
  81.     });
  82. };
  83.  
  84. %BPatio{
  85.     var patio2[200];
  86.     var b2[800];
  87.     patio2:=patio;
  88.     b2:={loop(}|@xc({7b})|
  89.         {select({ 処理するパティオを選択してください},999,{im({No})}};
  90.     loop({
  91.         %patioset @head(patio2,{,});
  92.         %patioid @head(patioset,{/});
  93.         %pass    @body(patioset,{/},{/});
  94.         %name    @tail(patioset,{/});
  95.         %fname    logd|{\PATIO\}|name;
  96.         case(b2<>{},{Yes},{b2:=b2|{,}});
  97.         b2:=b2    |@xc({7b})|{ }|name|{ }|@xc({7d})|{,}
  98.             |@xc({7b})|{ onePatio(}
  99.             |@xc({7b})|patioid|@xc({7d})|{,}
  100.             |@xc({7b})|pass|@xc({7d})|{,}
  101.             |@xc({7b})|fname|@xc({7d})|{); im({Yes}); }
  102.             |@xc({7d});
  103.         patio2:=@body(patio2,{,});
  104.         im(patio2<>{});
  105.     });
  106.     b2:=b2    |{,{ 前に戻る },{im({No})} ); footnote({}); }
  107.         |@xc({7d})|{);};
  108.     case(patio={},
  109.     {Yes}, {im({});
  110.     },{No},{im(b2);
  111.     });
  112. };
  113.  
  114. %SelForum    @BForum;
  115. %SelHP        @BHP;
  116. %SelPatio    @BPatio;
  117.  
  118. %DownLoad{
  119.     case(@filechk(IndexFName),{Yes},{
  120.         GETPROF; case(next,{Yes},DOWNLIB);
  121.     });
  122. };
  123.  
  124. %UpLoad{
  125.     UPTEXT; case(next,{Yes},UPTEXT2);
  126. };
  127.  
  128. %tour{
  129.     Mail;
  130.     case(hp<>{},{Yes},HP);
  131.     case(patio<>{},{Yes},Patio);
  132.     case(forum<>{},{Yes},Forum);
  133.     case(rtn2<>{},{Yes},RTN);
  134. };
  135.  
  136. %Round{
  137.     var Old[8];
  138.     var OldF[12];
  139.     select({ どの処理を行いますか？},9999,{im({Yes});
  140.     },{    巡回受信 (ﾀﾞｳﾝﾛｰﾄﾞ無効)   },{tour; Bell; im({Yes});
  141.     },{   巡回後終了(全送受信有効)   },{
  142.         tour; DownLoad; UpLoad; Logout; im({Yes});
  143.     },{      ユーザー設定変更        },{
  144.         Old:=id;
  145.         OldF:=SetupF;
  146.         SETUP;
  147.         case(Old<>id,{Yes},{
  148.             type({LOG\n}); ReLogin:={Yes}; Login;
  149.         });
  150.         case(OldF<>SetupF,{Yes},{rtn2:=rtn});
  151.         return:={Yes}; im({No});
  152.     },{        メニューへ戻る        },{im({Yes});
  153.     });
  154. };
  155.  
  156. %LineChk{
  157.     var cont[3];
  158.     case(@linechck,{Yes},{
  159.         cont:={No}; 
  160.         loop({
  161.         select({ 回線接続中ですが？},9999,{im({Yes});
  162.         },{ ログアウト処理をする },{ status:={ON}; Logout; im({No});
  163.         },{ 強制切断して前に戻る },{ discon; im({No});
  164.         },{   そのまま前に戻る   },{ im({No});
  165.         },{   前に戻るのを中止   },{ cont:={Yes}; im({No});
  166.         });
  167.         });
  168.     });
  169.     return:={No};
  170.     im(cont);
  171. };
  172.  
  173. /*
  174. **  メイン処理
  175. */
  176.     chat({No});
  177.     loop({
  178.     select({ 処理を選択してください(右クリックで手動通信)},
  179.         9999,           { MANUAL;    im({Yes})},
  180.         {    ログイン    },{ Login;    im({Yes})},
  181.         {   ログアウト   },{ Logout;    im({Yes})},
  182.         {    巡    回    },{ Round;         },
  183.         {   メール受信   },{ Mail;    im({Yes})},
  184.         {    ＨＰ受信    },{ SelHP;    im({Yes})},
  185.         {  パティオ受信  },{ SelPatio;    im({Yes})},
  186.         { フォーラム受信 },{ SelForum;    im({Yes})},
  187.         {  ダウンロード  },{ DownLoad; Bell; im({Yes})},
  188.         {    文書送信    },{ UpLoad;    im({Yes})},
  189.         {   ＲＴＮ巡回   },{ case(rtn2<>{},{Yes},RTN);    im({Yes})},
  190.         {    手動通信    },{ MANUAL;    im({Yes})},
  191.         {    外部呼出    },{ EXTERNAL({},{});    im({Yes})},
  192.         {    前に戻る    },{        im(@LineChk)}
  193.     );
  194.     footnote({});
  195.     });
  196.